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DICE GAME AND TIC-TAC-TOE 


DECUS Program Library Write-up DECUS NO. 8-401 


DICE GAME 


ABSTRACT 

Dice game is a program that simulates a craps table. It is a good demonstration program and 
should be treated as such. It allows for one player to make fictitious bets and roll the dice. 
Full playing instructions are given by the program when it is run on line with the BASIC 
compiler. 


TIC-TAC-TOE 


ABSTRACT 

This is an excellent demonstration or game program. It is possible to beat the computer 
for once. 









Program Listing 


10 RANDOMISE 

20 PRINT "WELCOME TO THE INGLEMOOR iilGHSCHOOL CRAPS TABLE." 
30 PRINT 
40 PRINT 

50 PRINT "DC YOU WANT INSTRUCT IONS?" 

60 PRINT "TYPE *1* FOR YES AND '’O' FOR NO"} 

70 INPUT Z 

80 IF Z = 0 then 100 
90 GOSUB 590 
100 PRINT 

110 PRINT "HOW MUCH DO YOU BET"; 

120 INPUT B 1 

130 IF B1 = 0 THEN 640 

140 IF B1 = -1 THEN 471 

150 IF B1 > 10000 THEN 451 

160 GOSUB 480 

170 IF T = 7 THEN 390 

180 IF T = 11 THEN 390 

190 IF T = 12 THEN 330 

200 IF T = 2 THEN 310 

210 IF T = 3 THEN 340 

220 IF T = 4 THEN 440 

230 IF T = 10 THEN 460 

240 PRINT "YOUR POINT IS:"T 

250 LET D = T 

260 GOSUB 480 

270 IF T = 7 THEN 340 / 

280 IF T = 11 THEN 340 
290 IF T = D THEN 420 
300 GOTO 260 
31 0 PRINT "SNAKE EYES 
320 GOTO 340 

330 PRINT "BOX CARS. 
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34 0 LET W = W-Bl 
350 PRINT "CRAP!!" 

360 PRINT "YOU LOSE " ABS(W)," DOLLARS." 

370 GOTO 100 

390 PRINT "A NATURAL!!" 

400 LET tf = W+Bl 

410 PRINT "YOU .VIN " W 5 " DOLLARS." 

411 GOTO 100 

420 PRINT "YOU'VE MADE YOUR POINT!" 

^ 430 GOTO 400 

440 PRINT "LITTLE JOE "5 
45C GOTO 240 

451 PRINT "SORRY, BUT THERE IS A HOUSE LIMIT OF $10000." 

452 GOTO 100 

460 PRINT "BIG DICK "; 

470 GOTO 240 

471 IF W«0 THEN 475 

472 IF W = 0 THEN 477 

473 PRINT "YOU ARE AHEAD " W;" DOLLARS." 

474 GOTO 100 

475 PRINT "YOU ARE BEHIND " ABS (w’) ;" DOLLARS." 

476 GOTO 100 

C 477 PRINT "YOU ARE BREAKING EVEN SO FAR." 

478 GOTO 100 

480 REMARK ROLL DICE ROUTINE. 

500 LET D1 = INT( 6 *RND(Zl))+l 
510 LET D2 = INT(6*RND(Z2))+1 
52 0 LET T = D1+D2 
530 PRINT D1;D2; 

540 IF T > 9 THEN 570 
550 PRINT " = ";T; 

560 RETURN 

570 PRINT " = ";T} 

580 RETURN 
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590 PRINT 

600 PRINT "ON THE FIRST THROW ?*S AND ll’S WIN, WHILE 2*S AND 3 *S 
610 PRINT "AND 12'S LOSE. ON FOLLOWING THROWS 7»S AND 11'S LOSE, 
620 PRINT "WHILE THE ORGINAL POINT WINS. TO QUIT TYPE A *0' FOR" 

630 PRINT "YOUR BET, OR A '- 1 » TO FIND THE STATE OF YOUR WINS OR" 

631 PRINT "LOSES." 

635 RETURN 
640 END 


•t 

IV 
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Program Listing 


1 RANDOMIZE 
10 PRINT " 
20 PRINT 


T I C - T A C - T 0 E " 


30 PRINT "GAME BCARDi 


1 2 3 " 
8 9 4" 
7 6 5" 


40 PRINT " 
50 PRINT " 


60 PRINT 

70 FOR P = 1 TO 8 
80 PGR I = 1 TO 3 
90 READ T(P,I) 

100 NEXT 1 
110 NEXT P 
120 LET u = 0 
130 For S = 1 TO 9 
1^0 FOR J = 1 TO 4 
141 READ U(S,J) 

150 NEXT J 
160 NEXT S 



200 LET N = 0 
205 FOR 3 = 1 TO 9 
210 _ET C(S) =0 
220 LET B(3) = 0 
230 NEXT S 

240 IF RKD(Z) < .5 THEN 280 
250 PRINT "YOU MOVE FIRST." 

260 PRINT 
270 GOTO 310 

280 PRINT "THE COMPUTER MOVES FIRST." 
290 PRINT 
300 GOTO 4?0 
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310 PRINT "YOUR MOVE"} 

32 0 INPUT M 

330 LET P = -1 

3^0 IF B(M) < > 0 THEN 260 

350 LET B(K) = F 

360 FOR J = 1 TO 4 

3?0 LET P = U(M,J) 

380 IF P = 0 THEN 420 
390 LET C(P) = C(P)+F 
400 IF C(P) = -3 THEN 56 O 
C- 410 IF C(P) = 3 THEN 510 

420 NEXT J 
430 LET N = N+l 
440 IF N = 9 THEN 580 
450 IF F = 1 THEN 310 
460 GuSUB 600 

480 PRINT "THE COMPUTER MOVESi" M 
490 LET F = 1 
500 GOTO 310 

510 PRINT "AND THE COMPUTER WINS!!!" 

520 PRINT 
530 PRINT 

^ 540 PRINT "NEW GAME." 

550 GOTO 200 

560 PRINT "CONGRATULATIONS, YOU JUST BEAT THE COMPUTER.!" 
570 GOTO 520 

580 PRINT "THE GAME IS A DRAW." 

590 GOTO 520 

6 00 FOR P = 1 TO 8 

610.IF C(P) = 2 THEN 670 

62 0 NEXT P 

630 FOR P = 1 TO 8 

640 IF C(P) = -2 THEN 670 

650 NEXT P 

660 GOTO 710 

670 FOR I = 1 TO 3 

680 LET M = T(P,I) 
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690 IF B(M) = 0 THEN 860 

700 NEXT I 

710 FOR a = 1 TO 9 

720 LET V(S) = 0 

730 IF B(3) < > 0 THEN 790 

740 FOR J = 1 TO 4 

750 LET P = U(S,J ) 

760 IF f = 0 THEN 780 

770 LET V(3) = V(S)+1+ABS(C(P)) 

780 NEXT J 

790 NEXT S 

800 LET V = 0 

810 Fofi 3 = l TO 9 

820 IF V (3) <= V THEN 850 

830 LET / = 7(S j 

840 LET K = S 

850 NEXT S 

860 RETURN 

870 END 
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